home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / paslib.arc / EXTENDED.INC < prev    next >
Encoding:
Text File  |  1980-01-02  |  1.9 KB  |  44 lines
  1. FUNCTION EXTENDED : TXT2;
  2.  
  3. VAR
  4.    KEY1 : CHAR;
  5.    KEY2 : CHAR;
  6.    KEYPR: STRING[2];
  7.    X    : BOOLEAN;
  8.    Y    : INTEGER;
  9.  
  10.      BEGIN
  11.           KEY1 := ' ';
  12.           IF NOT EOF(KBD) THEN
  13.              BEGIN
  14.                   READ(KBD,KEY1);
  15.                   IF KEY1 = ^[ THEN
  16.                        BEGIN
  17.                           KEY2 := ' ';
  18.                           KEYPR := '  ';
  19.                           READ(KBD,KEY2);
  20.                           IF KEY2 = ';' THEN KEYPR := 'F1'; {F1}
  21.                           IF KEY2 = '<' THEN KEYPR := 'F2'; {F2}
  22.                           IF KEY2 = '=' THEN KEYPR := 'F3'; {F3}
  23.                           IF KEY2 = '>' THEN KEYPR := 'F4'; {F4}
  24.                           IF KEY2 = '?' THEN KEYPR := 'F5'; {F5}
  25.                           IF KEY2 = '@' THEN KEYPR := 'F6'; {F6}
  26.                           IF KEY2 = 'A' THEN KEYPR := 'F7'; {F7}
  27.                           IF KEY2 = 'B' THEN KEYPR := 'F8'; {F8}
  28.                           IF KEY2 = 'C' THEN KEYPR := 'F9'; {F9}
  29.                           IF KEY2 = 'D' THEN KEYPR := 'F0'; {F10}
  30.                           IF KEY2 = ^[  THEN KEYPR := 'ES'; {ESCAPE}
  31.                           IF KEY2 = 'H' THEN KEYPR := 'UP'; {UP ARROW}
  32.                           IF KEY2 = 'I' THEN KEYPR := 'PU'; {PGUP}
  33.                           IF KEY2 = 'M' THEN KEYPR := 'RT'; {RT ARROW}
  34.                           IF KEY2 = 'Q' THEN KEYPR := 'PD'; {PGDN}
  35.                           IF KEY2 = 'P' THEN KEYPR := 'DN'; {DN ARROW}
  36.                           IF KEY2 = 'O' THEN KEYPR := 'EN'; {END}
  37.                           IF KEY2 = 'K' THEN KEYPR := 'LT'; {LT ARROW}
  38.                           IF KEY2 = 'G' THEN KEYPR := 'HM'; {HOME}
  39.                           IF KEY2 = 'R' THEN KEYPR := 'IN'; {INSERT}
  40.                           IF KEY2 = 'S' THEN KEYPR := 'DE'; {DELETE}
  41.                           WRITE(KEYPR);
  42.                       END;
  43.              END;
  44.      END;